El Mac 7/El Mac 7.iso/Macromedia® Director/Demos/DAVIDEO.DIR/00136.ls

Text File | 1995-08-02 | 3.8 KB | 164 lines

on initRearWindow
  global rwObj, gMaxColors, deskTopPattern, black
  set x to the colorDepth
  if x >= 8 then
    set gMaxColors to 255
  end if
  if x = 4 then
    set gMaxColors to 15
  end if
  if x = 2 then
    set gMaxColors to 3
  end if
  if x = 1 then
    set gMaxColors to 0
  end if
  if gMaxColors = 255 then
    put string(100) into field "colorIndex"
  else
    put string(gMaxColors / 2) into field "colorIndex"
  end if
  if factory("RearWindow") = 0 then
    openXLib("RearWindow.XObj")
  end if
  initGlobals()
  if objectp(rwObj) then
    rwObj(mdispose)
  end if
  makeObjIfNeeded()
end

on releaseRearWindow
  global rwObj
  if objectp(rwObj) then
    rwObj(mdispose)
  end if
  closeXLib()
  put " " into field "stage&Screen"
  put " " into field "colorIndex"
  set the mouseDownScript to EMPTY
  set the keyDownScript to EMPTY
end

on initGlobals
  global white, ltGray, gray, dkGray, black, deskTopPattern
  set white to -1
  set ltGray to -2
  set gray to -3
  set dkGray to -4
  set black to -5
  set deskTopPattern to -99
end

on displayAppName
  global rwObj
  set returnStr to rwObj(mGetAppName)
  put "The name of the current application is:" & RETURN & QUOTE & returnStr & QUOTE into field "stage&screen"
end

on coverDesktop patVar
  global rwObj
  makeObjIfNeeded()
  rwObj(mPatToWindow, patVar)
end

on UnCoverDesktop
  global rwObj
  if objectp(rwObj) then
    rwObj(mdispose)
  end if
  unLoad()
end

on makeObjIfNeeded
  global rwObj
  if not objectp(rwObj) then
    set rwObj to RearWindow(mnew, "M")
    if value(rwObj) < 0 then
      alert("System error" && rwObj && "trying to create the RearWindow object in RAM (multiple-monitor config).")
      stopMovie()
      exit
    end if
    writeStageAndScreenBounds()
    if the freeBlock < rwObj(mGetMemoryNeeded) then
      if objectp(rwObj) then
        rwObj(mdispose)
        set rwObj to RearWindow(mnew, "S")
      end if
      if value(rwObj) < 0 then
        alert("System error" && rwObj && "trying to create the RearWindow object in RAM (single-monitor config).")
        stopMovie()
        exit
      end if
      writeStageAndScreenBounds()
    end if
  end if
end

on writeStageAndScreenBounds
  global rwObj
  set s to "Minimum Rect around All Screens:"
  set s to s && rwObj(mGetScreenTop) & ", "
  set s to s && rwObj(mGetScreenLeft) & ", "
  set s to s && rwObj(mGetScreenBottom) & ", "
  set s to s && rwObj(mGetScreenRight) & RETURN
  set s to s & "Stage dimensions are:"
  set s to s && the stageTop & ", "
  set s to s && the stageLeft & ", "
  set s to s && the stageBottom & ", "
  set s to s && the stageRight
  put s into field "stage&Screen"
end

on fillWithIndexColor
  global rwObj
  makeObjIfNeeded()
  set patVar to value(field "colorIndex")
  rwObj(mIndexColorToWindow, patVar)
end

on fillWithRGBColor
  global rwObj
  makeObjIfNeeded()
  rwObj(mRGBColorToWindow, 10000, 25000, 65000)
end

on bumpCIndex direction
  global rwObj, white, gMaxColors
  set cIndex to value(field "colorIndex")
  if integerp(cIndex) then
    set cIndex to cIndex + direction
    if (cIndex < 0) or (cIndex > gMaxColors) then
      exit
    else
      put string(cIndex) into field "colorIndex"
      if cIndex then
        makeObjIfNeeded()
        rwObj(mIndexColorToWindow, cIndex)
      else
        coverDesktop(white)
      end if
      repeat while the stillDown
        set cIndex to cIndex + direction
        if (cIndex < 0) or (cIndex > gMaxColors) then
          exit
          next repeat
        end if
        put string(cIndex) into field "colorIndex"
        if cIndex then
          makeObjIfNeeded()
          rwObj(mIndexColorToWindow, cIndex)
          next repeat
        end if
        coverDesktop(white)
      end repeat
    end if
  end if
end

on wait n
  startTimer()
  repeat while the timer < n
  end repeat
end